﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class InsertarProveedor
    Inherits System.Web.UI.Page
    Dim errores As String
    Dim mensaje As String

    Protected Sub btngrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngrabar.Click


        'Instanciamos la clase 
        Dim capanegocios As New ProveedorBL
        'Instancias la entidad 
        Dim objeto As New BE.ProveedorBE

        'Llenas las propiedades
        objeto.codigo = txtcodigo.Text
        objeto.razonsocial = txtnombre.Text

        ' Try
        If capanegocios.InsertarProveedor(objeto) = True Then

            mensaje = "Se insertó el Proveedor"
            Dim script As String = "<script language=Javascript>"
            script += "alert('" & mensaje & "');"
            script += "</script>"
            Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)


            'Else

            '    mensaje = "No se insertó el Proveedor"
            '    Dim script As String = "<script language=Javascript>"
            '    script += "alert('" & mensaje & "');"
            '    script += "</script>"
            '    Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

        End If

        Response.Redirect("MantProveedores.aspx")

        ' Catch ex As Exception
        'errores = capanegocios.ChapaError
        'Response.Redirect("Errores.aspx?id=" & errores.ToString)
        ' Finally
        capanegocios = Nothing
        objeto = Nothing
        '  End Try

    End Sub
End Class
